VERSION 5.00
Begin VB.Form frmOptions 
   BackColor       =   &H0061514B&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "The Odyssey Online Classic [Options]"
   ClientHeight    =   3720
   ClientLeft      =   60
   ClientTop       =   315
   ClientWidth     =   13425
   ControlBox      =   0   'False
   Icon            =   "frmOptions.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3720
   ScaleWidth      =   13425
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      Appearance      =   0  'Flat
      BackColor       =   &H0044342E&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   3615
      Left            =   6600
      TabIndex        =   21
      Top             =   0
      Visible         =   0   'False
      Width           =   6375
      Begin VB.TextBox reportinput 
         Height          =   2055
         Left            =   120
         MultiLine       =   -1  'True
         TabIndex        =   25
         Top             =   840
         Width           =   6135
      End
      Begin VB.Label Label5 
         BackColor       =   &H0044342E&
         Caption         =   "0/500"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   5400
         TabIndex        =   26
         Top             =   600
         Width           =   855
      End
      Begin VB.Label Label4 
         BackColor       =   &H0044342E&
         Caption         =   "Please enter as detailed information below as possible. The maximum length is 500 characters."
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   495
         Left            =   120
         TabIndex        =   24
         Top             =   120
         Width           =   6135
      End
      Begin VB.Label Label7 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Save"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   3120
         TabIndex        =   23
         Top             =   3120
         Width           =   1185
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Cancel"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   1200
         TabIndex        =   22
         Top             =   3120
         Width           =   1260
      End
   End
   Begin VB.Frame fraOptions 
      Appearance      =   0  'Flat
      BackColor       =   &H0044342E&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   3495
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6375
      Begin VB.ComboBox cmbcolor 
         Height          =   315
         ItemData        =   "frmOptions.frx":1CFA
         Left            =   4200
         List            =   "frmOptions.frx":1D2E
         TabIndex        =   31
         Text            =   "Green"
         Top             =   2520
         Width           =   1695
      End
      Begin VB.CheckBox Chkbchat 
         BackColor       =   &H0044342E&
         Caption         =   "Display B Chat"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   300
         Left            =   2160
         TabIndex        =   30
         Top             =   0
         Width           =   1935
      End
      Begin VB.TextBox skillspeed 
         Height          =   285
         Left            =   4200
         TabIndex        =   27
         Text            =   "100"
         Top             =   1560
         Width           =   375
      End
      Begin VB.CheckBox ChkFilter 
         BackColor       =   &H0044342E&
         Caption         =   "Chat Filter"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   300
         Left            =   4200
         TabIndex        =   19
         Top             =   1200
         Width           =   1935
      End
      Begin VB.CheckBox ChkChatLinks 
         BackColor       =   &H0044342E&
         Caption         =   "Chatbox Links"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   300
         Left            =   4200
         TabIndex        =   18
         Top             =   840
         Width           =   1935
      End
      Begin VB.CheckBox ChkChatBox 
         BackColor       =   &H0044342E&
         Caption         =   "Chatbox Timestamp"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   300
         Left            =   4200
         TabIndex        =   17
         Top             =   480
         Width           =   1935
      End
      Begin VB.CheckBox ChkRClickMove 
         BackColor       =   &H0044342E&
         Caption         =   "Right Click Move"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   540
         Left            =   4200
         TabIndex        =   16
         Top             =   0
         Width           =   1935
      End
      Begin VB.CheckBox chkDisableLighting 
         BackColor       =   &H0044342E&
         Caption         =   "Disable Lighting and Weather"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   420
         Left            =   120
         TabIndex        =   14
         Top             =   840
         Width           =   1935
      End
      Begin VB.CheckBox chkDisablePlayerLights 
         BackColor       =   &H0044342E&
         Caption         =   "Disable Other Player's Lights"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   300
         Left            =   120
         TabIndex        =   13
         Top             =   2520
         Width           =   2895
      End
      Begin VB.CheckBox chkHighPriority 
         BackColor       =   &H0044342E&
         Caption         =   "High Priority"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   300
         Left            =   2160
         TabIndex        =   12
         Top             =   720
         Width           =   1935
      End
      Begin VB.OptionButton optLighting 
         BackColor       =   &H0044342E&
         Caption         =   "Low"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   9
         Top             =   1680
         Width           =   1455
      End
      Begin VB.OptionButton optLighting 
         BackColor       =   &H0044342E&
         Caption         =   "Medium"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   8
         Top             =   1920
         Width           =   1455
      End
      Begin VB.OptionButton optLighting 
         BackColor       =   &H0044342E&
         Caption         =   "High"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   7
         Top             =   2160
         Width           =   1455
      End
      Begin VB.CheckBox chkBroadcasts 
         BackColor       =   &H0044342E&
         Caption         =   "Display Global"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   300
         Left            =   4200
         TabIndex        =   4
         Top             =   2160
         Width           =   1935
      End
      Begin VB.CheckBox chkWAV 
         BackColor       =   &H0044342E&
         Caption         =   "WAV Sound Effects"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   300
         Left            =   120
         TabIndex        =   3
         Top             =   480
         Width           =   1935
      End
      Begin VB.CheckBox chkMidi 
         BackColor       =   &H0044342E&
         Caption         =   "MIDI Music"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   300
         Left            =   120
         TabIndex        =   2
         Top             =   120
         Width           =   1935
      End
      Begin VB.CheckBox chkWindowed 
         BackColor       =   &H0044342E&
         Caption         =   "Windowed Mode"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   300
         Left            =   2160
         TabIndex        =   1
         Top             =   360
         Width           =   1935
      End
      Begin VB.Label Versionlbl 
         BackColor       =   &H0044342E&
         Caption         =   "Version: 1.1.0"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   4800
         TabIndex        =   29
         Top             =   3240
         Width           =   1455
      End
      Begin VB.Label Label2 
         BackColor       =   &H0044342E&
         Caption         =   "Max Skill speed      (100-300)"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   375
         Left            =   4680
         TabIndex        =   28
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Bug Report"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   5040
         TabIndex        =   20
         Top             =   2880
         Width           =   1185
      End
      Begin VB.Label cmdMacros 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Macros"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   2160
         TabIndex        =   15
         Top             =   2160
         Width           =   1620
      End
      Begin VB.Label cmdChangePassword 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Change Password"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   2160
         TabIndex        =   11
         Top             =   1800
         Width           =   1620
      End
      Begin VB.Label lblLightingQuality 
         BackColor       =   &H0044342E&
         Caption         =   "Lighting Quality:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   1440
         Width           =   1935
      End
      Begin VB.Label btnCancel 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Cancel"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   1200
         TabIndex        =   6
         Top             =   3000
         Width           =   1260
      End
      Begin VB.Label btnOk 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H0044342E&
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Save"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H009AADC2&
         Height          =   255
         Left            =   3120
         TabIndex        =   5
         Top             =   3000
         Width           =   1185
      End
   End
End
Attribute VB_Name = "frmOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim OldText As String
Private Sub btnCancel_Click()
    Unload Me
    If blnPlaying = False Then frmMenu.Show
End Sub


Private Sub btnOk_Click()
        frmMain.SkillTimer.Interval = skillspeed.Text
        With options
        If ChkFilter = 1 Then
            .ChatFilter = True
        Else
            .ChatFilter = False
        End If
        .GlobalColor = cmbcolor.ListIndex
        If ChkChatLinks = 1 Then
            .ChatLinks = True
        Else
            .ChatLinks = False
        End If
        If chkMidi = 1 Then
            .MIDI = True
        Else
            If .MIDI = True Then
                StopMidi
            End If
            .MIDI = False
        End If
        If chkWAV = 1 Then
            .Wav = True
        Else
            .Wav = False
        End If
        If chkBroadcasts = 1 Then
            .Broadcasts = True
        Else
            .Broadcasts = False
        End If
        If chkWindowed = 1 Then
            .Windowed = True
        Else
            .Windowed = False
        End If
        If chkHighPriority = 1 Then
            .HighPriority = True
            SetPriority HIGH_PRIORITY_CLASS
        Else
            .HighPriority = False
            SetPriority NORMAL_PRIORITY_CLASS
        End If
        If optLighting(0) = True Then
            .LightingQuality = 0
        ElseIf optLighting(1) = True Then
            .LightingQuality = 1
        ElseIf optLighting(2) = True Then
            .LightingQuality = 2
        End If
        If chkDisablePlayerLights = 1 Then
            .DisablePlayerLights = True
        Else
            .DisablePlayerLights = False
        End If
        If ChkChatBox = 1 Then
            .TimeStamp = True
        Else
            .TimeStamp = False
        End If
        If ChkRClickMove = 1 Then
            .RCLickMove = True
        Else
            .RCLickMove = False
        End If
        If chkDisableLighting = 1 Then
            .DisableLighting = True
        Else
            .DisableLighting = False
        End If
        If Chkbchat = 1 Then
            .BChat = True
        Else
            .BChat = False
        End If
    End With
    SaveOptions
    If blnPlaying = True Then
        If options.ChatLinks = True Then
            If options.TimeStamp = False Then
                EnableURLDetect frmMain.ChatBox.hwnd, frmMain.hwnd
            Else
                EnableURLDetect frmMain.TimeChatBox.hwnd, frmMain.hwnd
            End If
        Else
            DisableURLDetect
        End If
        RedrawMap = True
        If options.TimeStamp = True Then
            frmMain.ChatBox.Visible = False
            frmMain.TimeChatBox.Visible = True
        Else
            frmMain.ChatBox.Visible = True
            frmMain.TimeChatBox.Visible = False
        End If
    Else
        frmMenu.Show
    End If
    Unload Me
End Sub

Private Sub cmdChangePassword_Click()
    frmNewPass.Show
    Unload Me
End Sub

Private Sub cmdMacros_Click()
    frmMacros.Show
End Sub

Private Sub Form_Load()
    skillspeed.Text = Str(frmMain.SkillTimer.Interval)
    Versionlbl.Caption = "Version: " & CStr(App.Major) & "." & CStr(App.Minor) & "." & CStr(App.Revision)
    If blnPlaying = False Then
        Label1.Visible = False
    Else
        Label1.Visible = True
    End If
    Me.Frame1.Left = Me.fraOptions.Left
    Me.Frame1.Top = Me.fraOptions.Top
    Me.Width = 6735
    With options
        If .GlobalColor > 0 Then
            cmbcolor.ListIndex = .GlobalColor
        Else
            cmbcolor.ListIndex = 2
        End If
        If .ChatFilter = True Then
            ChkFilter = 1
        Else
            ChkFilter = 0
        End If
        If .MIDI = True Then
            chkMidi = 1
        Else
            chkMidi = 0
        End If
        If .ChatLinks = True Then
            ChkChatLinks = 1
        Else
            ChkChatLinks = 0
        End If
        If .Wav = True Then
            chkWAV = 1
        Else
            chkWAV = 0
        End If
        If .Broadcasts = True Then
            chkBroadcasts = 1
        Else
            chkBroadcasts = 0
        End If
        If .Windowed = True Then
            chkWindowed = 1
        Else
            chkWindowed = 0
        End If
        If .TimeStamp = True Then
            ChkChatBox = 1
        Else
            ChkChatBox = 0
        End If
        If .RCLickMove = True Then
            ChkRClickMove = 1
        Else
            ChkRClickMove = 0
        End If
        If .HighPriority = True Then
            chkHighPriority = 1
        Else
            chkHighPriority = 0
        End If
        If .LightingQuality = 0 Then
            optLighting(0) = True
        ElseIf .LightingQuality = 1 Then
            optLighting(1) = True
        ElseIf .LightingQuality = 2 Then
            optLighting(2) = True
        End If
        If .DisablePlayerLights = True Then
            chkDisablePlayerLights = 1
        Else
            chkDisablePlayerLights = 0
        End If
        If .DisableLighting = True Then
            chkDisableLighting = 1
        Else
            chkDisableLighting = 0
        End If
        If .BChat = True Then
            Chkbchat = 1
        Else
            Chkbchat = 0
        End If
    End With
    frmOptions_Loaded = True
    If blnPlaying = False Then
        cmdChangePassword.Visible = False
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    frmOptions_Loaded = False
End Sub

Private Sub Label1_Click()
Me.Caption = "The Odyssey Online Classic [Bug Report]"
Me.fraOptions.Visible = False
Me.Frame1.Visible = True
End Sub

Private Sub Label6_Click()
Me.Caption = "The Odyssey Online Classic [Options]"
Me.fraOptions.Visible = True
Me.Frame1.Visible = False
End Sub

Private Sub Label7_Click()
If Len(reportinput.Text) < 50 Then
    MsgBox "You must input more than 50 characters!"
Else
    SendSocket Chr$(113) + "<H1>Bug Report</H1><BR><H3>Server: " + ServerDescription + "<BR><BR><BR><H3>Report:</H3><BR>" + reportinput.Text
    Call Unload(frmOptions)
End If
End Sub

Private Sub reportinput_Change()
Label5.Caption = Len(reportinput.Text) & "/500"
    If Len(reportinput.Text) > 500 Then
        reportinput.Text = OldText
    Else
        Label5.ForeColor = &H9AADC2
        OldText = reportinput.Text
    End If
    If Len(reportinput.Text) = 500 Then
        Label5.ForeColor = &HC0&
    End If
End Sub

Private Sub skillspeed_Change()
If IsNumeric(skillspeed.Text) = False Then skillspeed.Text = 100: Exit Sub
End Sub
